home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / c / awin / awindemo.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-05-17  |  13.3 KB  |  484 lines
  1. /* awindemo.c
  2.  
  3.   Simple example on how to use awin.
  4.  
  5.   Has three effects, dummy 16bit `pseudo'plasma,
  6.   8bit rotatezoomer and tunnel.
  7.  
  8.   compiled with ppc-amigaos-gcc 2.7.2.1:
  9.  
  10.   rotzoom runs ~198fps in 64x48 dbuffer off pal screen on 603p@240/060,
  11.   ~138fps 128x96, ~65fps 256x180 and ~45fps 320x240
  12.  
  13.   tunnel runs ~109fps (slow because of 128k table lookup),
  14.   ~88fps 128x96, ~51fps 256x180 and ~38fps 320x240
  15.  
  16.   all effects are calculating 320x240 chunky framebuffer.
  17.  
  18. */
  19.  
  20. #include <stdio.h>
  21. #include <stdlib.h>
  22. #include <strings.h>
  23. #include <math.h>
  24. #ifndef M_PI
  25. #  define M_PI 3.14159265358979323846
  26. #endif
  27.  
  28. #include "awin.h"
  29.  
  30. #define AWINDEMOVERSION "awindemo 1.0.13"
  31.  
  32. #define PLASMA_TIME 5000
  33. #define PLASMA_WIDTH 320
  34. #define PLASMA_HEIGHT 240
  35. #define PLASMA_DEPTH 16
  36.  
  37. #define ROTZOOM_TIME 20000
  38. #define ROTZOOM_WIDTH 320
  39. #define ROTZOOM_HEIGHT 240
  40. #define ROTZOOM_DEPTH 8
  41.  
  42. #define TUNNEL_TIME 20000
  43. #define TUNNEL_WIDTH 320
  44. #define TUNNEL_HEIGHT 240
  45. #define TUNNEL_DEPTH 8
  46.  
  47. #define DEF_WIDTH 320
  48. #define DEF_HEIGHT 240
  49.  
  50. #define SINTAB90 1024
  51. #define SINTAB360 (SINTAB90*4)
  52.  
  53.  
  54. unsigned long __stack=20480;
  55.  
  56. #if defined(AW_PPC)
  57. void __chkabort(void);
  58. void __chkabort(void){}
  59. #else 
  60. void __regargs __chkabort(void);
  61. void __regargs __chkabort(void){}
  62. #endif
  63.  
  64.  
  65.  
  66. /* this plasma isn't really plasma but simple routine to
  67.    generate 16bit test chunky */
  68.  
  69. #define limr(x) (((x)<0)?0:(((x)>31)?31:(x)))
  70. #define limg(x) (((x)<0)?0:(((x)>63)?63:(x)))
  71. #define limb(x) (((x)<0)?0:(((x)>31)?31:(x)))
  72. #define truncr(x) ((x)&31)
  73. #define truncg(x) ((x)&63)
  74. #define truncb(x) ((x)&31)
  75. #define torgb565(r,g,b) ((r)<<11|(g)<<5|(b))
  76.  
  77. void plasma(struct awchunky *chunky,ULONG time) {
  78.  
  79.   ULONG x,y,
  80.     *p=(ULONG *)chunky->framebuffer;
  81.   ULONG r,g,b;
  82.  
  83.   r=time/64+1;
  84.   g=time/32+3;
  85.   b=-(time/16+5);
  86.  
  87.   for (y=0; y<chunky->height; y++) {
  88.  
  89.     r+=(((y+time/100)/13)&7)-3;
  90.     g+=7-((y/11)&15);
  91.     b+=((y/7)&31)-15;
  92.  
  93.     for (x=0; x<chunky->width_align; x+=8)
  94.  
  95.       *p++=
  96.         torgb565(truncr(r),truncg(g),truncb(b))<<16|
  97.         torgb565(truncr(r+1),truncg(g+1),truncb(b+1)),
  98.  
  99.       *p++=
  100.         torgb565(truncr(r+2),truncg(g+2),truncb(b+2))<<16|
  101.         torgb565(truncr(r+3),truncg(g+3),truncb(b+3)),
  102.  
  103.       *p++=
  104.         torgb565(truncr(r+4),truncg(g+4),truncb(b+4))<<16|
  105.         torgb565(truncr(r+5),truncg(g+5),truncb(b+5)),
  106.  
  107.       *p++=
  108.         torgb565(truncr(r+6),truncg(g+6),truncb(b+6))<<16|
  109.         torgb565(truncr(r+7),truncg(g+7),truncb(b+7)),
  110.  
  111.         r+=8,g+=8,b+=8;
  112.   }
  113. }
  114.  
  115.  
  116. LONG *init_sintab(void) {
  117.   LONG *sintab,i;
  118.  
  119.   sintab=malloc(sizeof(LONG)*(SINTAB360+SINTAB90));
  120.   if (!sintab) {
  121.     printf("no memory for sintab\n");
  122.     return NULL;
  123.   }
  124.   for(i=0; i<(SINTAB360+SINTAB90); i++) {
  125.     sintab[i]=sin(M_PI/180.0*i*360.0/SINTAB360)*32768;
  126.   }
  127.   return sintab;
  128. }
  129.  
  130. /* this routine "taken" from QMap :) */
  131.  
  132. void rotzoom(struct awchunky *chunky,ULONG time,
  133.   ULONG *alpha,LONG *sintab,UBYTE *pic) {
  134.  
  135.   ULONG x,y,tx,ty,tx2,ty2,
  136.     *p=(ULONG *)chunky->framebuffer;
  137.   LONG aktsin,aktcos;
  138.  
  139.   aktsin=2*sintab[*alpha&(SINTAB360-1)];
  140.   aktcos=2*sintab[(*alpha&(SINTAB360-1))+SINTAB90];
  141.  
  142.   /* spend 10 seconds on SINTAB360 degrees */
  143.   *alpha=time/(10000.0/SINTAB360);
  144.  
  145.   tx2=-100*sintab[(5*(*alpha)+23)&(SINTAB360-1)];
  146.   ty2=-100*sintab[((7*(*alpha)+71)&(SINTAB360-1))+SINTAB90];
  147.   for (y=0; y<chunky->height; y++) {
  148.     tx=tx2;
  149.     ty=ty2;
  150.     for (x=0; x<chunky->width_align; x+=16)
  151.  
  152.       *p++=pic[((ty>>9)&(0x7f<<7))+((tx>>16)&0x7f)]<<24|
  153.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<16|
  154.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<8|
  155.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)],
  156.  
  157.       *p++=pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<24|
  158.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<16|
  159.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<8|
  160.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)],
  161.  
  162.       *p++=pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<24|
  163.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<16|
  164.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<8|
  165.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)],
  166.  
  167.       *p++=pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<24|
  168.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<16|
  169.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)]<<8|
  170.            pic[(((ty+=aktcos)>>9)&(0x7f<<7))+(((tx+=aktsin)>>16)&0x7f)],
  171.  
  172.       ty+=aktcos, tx+=aktsin; /* !! */
  173.  
  174.     tx2+=aktcos;
  175.     ty2-=aktsin;
  176.     aktsin-=1<<8;
  177.     aktcos+=1<<8;
  178.   }
  179. }
  180.  
  181.  
  182. UWORD *init_tunnel(void) {
  183.   UWORD *tunneltab;
  184.   LONG x,y;
  185.   ULONG xx,yy;
  186.   UWORD *tab;
  187.  
  188.   tunneltab=malloc(TUNNEL_WIDTH*TUNNEL_HEIGHT*sizeof(UWORD));
  189.   if (!tunneltab) {
  190.     printf("no memory for tunneltab\n");
  191.     return NULL;
  192.   }
  193.  
  194.   /* again this stuff shamelesly ripped. */
  195.  
  196.   tab=tunneltab;
  197.  
  198.   for (y=TUNNEL_HEIGHT/2; y>-TUNNEL_HEIGHT/2; y--) {
  199.     for (x=-TUNNEL_WIDTH/2; x<TUNNEL_WIDTH/2; x++) {
  200.       if (x | y) {
  201.         yy = (int) (6000 / sqrt((double)(x*x+y*y))) & 0xff;
  202.         xx = (int) (atan2((double)y, (double)x) * (256/M_PI)) &0xff;
  203.         *tab++ = yy<<8 | xx;
  204.       } else {
  205.         *tab++ = 0;
  206.       }
  207.     }
  208.   }
  209.   return tunneltab;
  210. }
  211.  
  212. UBYTE *init_texture(struct awfile *pic) {
  213.   UBYTE *texture=NULL;
  214.  
  215.   if (pic) {
  216.  
  217.     if (pic->size!=256*256) {
  218.       printf("tunnel texture size not 256*256\n");
  219.       awfreefile(pic);
  220.       return NULL;
  221.     }
  222.  
  223.     texture=malloc(256*256*2);
  224.     if (!texture) {
  225.       printf("no memory for texture\n");
  226.       return NULL;
  227.     }
  228.  
  229.     /* copy texture to mem twice */
  230.     memcpy(texture+0*256*256,pic->data,256*256);
  231.     memcpy(texture+1*256*256,pic->data,256*256);
  232.     awfreefile(pic);
  233.   }
  234.   return texture;
  235. }
  236.  
  237. void tunnel(struct awchunky *chunky,ULONG time,
  238.   UWORD *position,UWORD *tunneltab,LONG *sintab,UBYTE *texture) {
  239.  
  240.   ULONG cnt=(chunky->width_align>>4)*chunky->height,
  241.     index=0;
  242.   ULONG *p=(ULONG *)chunky->framebuffer;
  243.   UBYTE *t=&texture[*position];
  244.  
  245.   /* move along in texture */
  246.   *position=
  247.     ((time/4-sintab[(time/3+SINTAB90)&(SINTAB360-1)]/256)&0xff)<<8|
  248.     ((time/32+sintab[(time/2)&(SINTAB360-1)]/128)&0xff);
  249.  
  250.   while (cnt--)
  251.     *p++=t[tunneltab[index+0]]<<24 | t[tunneltab[index+1]]<<16 |
  252.          t[tunneltab[index+2]]<<8  | t[tunneltab[index+3]],
  253.     *p++=t[tunneltab[index+4]]<<24 | t[tunneltab[index+5]]<<16 |
  254.          t[tunneltab[index+6]]<<8  | t[tunneltab[index+7]],
  255.     *p++=t[tunneltab[index+8]]<<24 | t[tunneltab[index+9]]<<16 |
  256.          t[tunneltab[index+10]]<<8 | t[tunneltab[index+11]],
  257.     *p++=t[tunneltab[index+12]]<<24| t[tunneltab[index+13]]<<16 |
  258.          t[tunneltab[index+14]]<<8 | t[tunneltab[index+15]],
  259.     index+=16;
  260. } 
  261.  
  262.  
  263. void changepalette(struct awdisplay *display,
  264.   struct awchunky *chunky,ULONG *palette,ULONG palentries) {
  265.  
  266.   ULONG x;
  267.   ULONG *c;
  268.  
  269.   /* clear chunky and force it visible. this is to
  270.      avoid nasty gfx glitch in screen mode. */
  271.  
  272.   x=(chunky->width_align>>4)*chunky->height;
  273.   c=(ULONG *)chunky->framebuffer;
  274.   while (x--) *c++=0,*c++=0,*c++=0,*c++=0;
  275.   awrenderchunky_show(display,chunky);
  276.     
  277.   awsetpalette(display,palette,palentries);
  278. }
  279.  
  280. ULONG myidcmp(struct IntuiMessage *msg) {
  281.  
  282.   switch (msg->Class) {
  283.     case IDCMP_RAWKEY:
  284.       printf("myidcmp: rawkey 0x%02x\n",msg->Code);
  285.       break;
  286.     case IDCMP_VANILLAKEY:
  287.       printf("myidcmp: vanillakey %c (%d)\n",
  288.         ((msg->Code>31)&&(msg->Code<127))?msg->Code:'.',msg->Code);
  289.       break;
  290.   }
  291.   return AWIDHA_NOP;
  292. }
  293.  
  294. #if defined(__SASC)
  295. const char Version[] = "$VER: " AWINDEMOVERSION " " __AMIGADATE__ ;
  296. #else
  297. const char Version[] = "$VER: " AWINDEMOVERSION " (" __DATE__  ")";
  298. #endif
  299.  
  300. int main(void) {
  301.  
  302.   struct awfile *bunnypic,*bunnypal,*glas2pal;
  303.   struct awchunky *tunchunky,*rotchunky,*plasmachunky;
  304.   struct awdisplay *display;
  305.   struct awtimer *timer;
  306.   struct awodargs odargs;
  307.   struct awrdargs *rdargs;
  308.   LONG array[4]={0};
  309.   ULONG rottime,tuntime,plasmatime;
  310.   ULONG ticks,inputticks=0,time,timebase;
  311.   ULONG frames=0,took,fps100,rotpal=0,tunpal=0;
  312.   ULONG alpha=0,quit=0;
  313.   LONG *sintab;
  314.   UBYTE *texture;
  315.   UWORD *tunneltab,position=0;
  316.  
  317.   if ( (display=awcreatedisplay()) ) {
  318.  
  319.     awsetdebuglevel(display,AWD_VERBOSE);
  320.  
  321.     /* clear all & set default values */
  322.     memset(&odargs,0,sizeof(odargs));
  323.     odargs.flags=AWODAF_INITWINDOW | AWODAF_DIRECTDRAW;
  324.     odargs.modeid8=0L;              /* find best modeid */
  325.     odargs.modeid16=0L;             /* find best modeid */
  326.     odargs.pubscreen="Workbench";   /* Workbench pubscreen */
  327.     odargs.title="awin demo";
  328.     odargs.width=DEF_WIDTH;      /* default dimensions same */
  329.     odargs.height=DEF_HEIGHT;    /* as our "largest" effect's */
  330.     odargs.x=0; odargs.y=0;
  331.  
  332.     rdargs=awreadargs(display,&odargs,
  333.       "PLASMATIME/N,ROTTIME/N,TUNNELTIME/N,STARTTIME/N",array);
  334.  
  335.     if (rdargs) {
  336.  
  337.       printf(
  338.         "   ESC Q quit\n"
  339.         "   W     switch to window mode\n"
  340.         "   S     switch to screen mode\n"
  341.         "   TAB   toggle between window and screen mode\n"
  342.         "   P     pause rendering (handy for screenshots;)\n"
  343.         "   SPACE readjust window size/pos so that it has original w&h\n"
  344.         "   M     change screen mode ModeID (also changes window size)\n\n");
  345.  
  346.       /* now we can modify odargs if we like, although
  347.          overriding user given arguments is rude... :-) */
  348.  
  349.  
  350.       printf("initializing...\n");
  351.  
  352.       bunnypic=awloadfile("bunny.raw");
  353.       bunnypal=awloadfile("bunny.pal");
  354.       tunneltab=init_tunnel();
  355.  
  356.       texture=init_texture(awloadfile("glas2.raw"));
  357.       glas2pal=awloadfile("glas2.pal");
  358.  
  359.       sintab=init_sintab();
  360.  
  361.       if ( (!bunnypic) ||
  362.            (!bunnypal) ||
  363.            (!glas2pal) ||
  364.            (!sintab) ||
  365.            (!tunneltab) ||
  366.            (!texture) ||
  367.            (bunnypic->size!=128*128) ||
  368.            (bunnypal->size!=1024) ||
  369.            (glas2pal->size!=1024) ) {
  370.  
  371.         printf("something went wrong\n");
  372.  
  373.         awfreefile(glas2pal);
  374.         awfreefile(bunnypal); awfreefile(bunnypic);
  375.         awfreeargs(rdargs); awdeletedisplay(display);
  376.         return 10;
  377.       }
  378.  
  379.       /* call myidcmp for IDCMP_RAWKEY and IDCMP_VANILLAKEY */
  380.       awsetidcmphook(display,myidcmp);
  381.       awsetidcmpflags(display,IDCMP_RAWKEY|IDCMP_VANILLAKEY);
  382.  
  383.       if ( (timer=awcreatetimer(display)) ) {
  384.  
  385.         if ( (plasmachunky=awallocchunky(display,
  386.           PLASMA_WIDTH,PLASMA_HEIGHT,PLASMA_DEPTH)) ) {
  387.  
  388.           if ( (rotchunky=awallocchunky(display,
  389.             ROTZOOM_WIDTH,ROTZOOM_HEIGHT,ROTZOOM_DEPTH)) ) {
  390.  
  391.             if ( (tunchunky=awallocchunky(display,
  392.               TUNNEL_WIDTH,TUNNEL_HEIGHT,TUNNEL_DEPTH)) ) {
  393.  
  394.               if (awopendisplay(display,&odargs)) {
  395.  
  396.                 if (array[0]) plasmatime=1000 * *((ULONG *)array[0]);
  397.                   else plasmatime=PLASMA_TIME;
  398.  
  399.                 if (array[1]) rottime=1000 * *((ULONG *)array[1]);
  400.                   else rottime=ROTZOOM_TIME;
  401.  
  402.                 if (array[2]) tuntime=1000 * *((ULONG *)array[2]);
  403.                   else tuntime=TUNNEL_TIME;
  404.  
  405.                 if (array[3]) timebase=-1000 * *((ULONG *)array[3]);
  406.                   else timebase=0;
  407.                 
  408.                 awrestarttimer(timer);
  409.  
  410.                 while (!quit) {
  411.  
  412.                   ticks=awreadtimer(timer);
  413.                   time=ticks-timebase;
  414.  
  415.                   /* handle input 5 times per second, this reduces overhead a
  416.                      bit, but makes awin respond user input a bit sluggish */
  417.                   if (ticks>inputticks) {
  418.                     inputticks=ticks+200;  /* 1s/5=200ms */
  419.                     quit=!awhandleinput(display);
  420.                   }
  421.  
  422.                   if (time<plasmatime) {
  423.  
  424.                     plasma(plasmachunky,time);
  425.                     awrenderchunky(display,plasmachunky);
  426.                     frames++;
  427.  
  428.                   } else if (time<rottime+plasmatime) {
  429.  
  430.                     if (!rotpal) {
  431.                       rotpal++;
  432.                       changepalette(display,rotchunky,(ULONG *)bunnypal->data,256);
  433.                       frames++;
  434.                     }
  435.                     rotzoom(rotchunky,time,&alpha,sintab,bunnypic->data);
  436.                     awrenderchunky(display,rotchunky);
  437.                     frames++;
  438.  
  439.                   } else if (time<tuntime+rottime+plasmatime) {
  440.  
  441.                     if (!tunpal) {
  442.                       tunpal++;
  443.                       changepalette(display,tunchunky,(ULONG *)glas2pal->data,256);
  444.                       frames++;
  445.                     }
  446.                     tunnel(tunchunky,time,&position,tunneltab,sintab,texture);
  447.                     awrenderchunky(display,tunchunky);
  448.                     frames++;
  449.  
  450.                   } else {
  451.                     /* restart */
  452.                     rotpal=0; tunpal=0;
  453.                     timebase+=time;
  454.                   }
  455.                 }
  456.  
  457.                 took=awreadtimer(timer);
  458.                 if (took<50) took=50;
  459.  
  460.                 fps100=frames*1000/(took/100.0);
  461.  
  462.                 printf("ran %lu ms (%lu seconds), %lu frames, %lu.%02lu average fps\n",
  463.                   took,(took+500)/1000,frames,fps100/100,fps100%100);
  464.  
  465.                 awclosedisplay(display);
  466.               }
  467.               awfreechunky(tunchunky);
  468.             }
  469.             awfreechunky(rotchunky);
  470.           }
  471.           awfreechunky(plasmachunky);
  472.         }
  473.         awdeletetimer(timer);
  474.       }
  475.       awfreefile(glas2pal);
  476.       awfreefile(bunnypal);
  477.       awfreefile(bunnypic);
  478.       awfreeargs(rdargs);
  479.     }
  480.     awdeletedisplay(display);
  481.   }
  482.   return 0;
  483. }
  484.